8 REM SAVE"VMTEST PLOTS.C",8
9 REM PROGRAM BY DR.FRANK COVITZ
10 PRINT"USE C TO GO FROM ONE PICTURE TO ANOTHER
11 [139] A[178]0 [167] A[178]1:[147]"-VMSUPP.6000.D",8,1
20 BA[178]6[172]16[174]3:[143] BASE ADDRESS
30 IN[178]BA
40 RS[178]BA[170]3
50 CL[178]BA[170]6
60 DR[178]BA[170]9
70 PX[178]BA[170]12
80 MV[178]BA[170]15
90 [158](IN)
100 S[178]3:[158](MV),S,S:[129] I[178]S [164] 195 [169] S
110 X1[178]S:Y1[178]X1:X2[178]X1:Y2[178]Y1[170]I
120 X3[178]X2[170]I:Y3[178]Y2:X4[178]X3:Y4[178]Y3[171]I
130 [158]DR,X2,Y2
140 [158]DR,X3,Y3
150 [158]DR,X4,Y4
160 [158]DR,X1,Y1
170 [130] I
180 [161] A$:[139] A$[179][177]"C" [167] 180
200 R[178]80:XC[178]160:YC[178]100:A[178][255][173]180:S[178]5
210 [158](CL)
220 [129] AN [178] 0 [164] [255][173]1.99 [169] [255][173]20
230 [158]MV,XC[170]R[172][191](AN),YC[170]R[172][191](AN)
240 [129] I[178]S [164] 360 [169] S
250 [158]DR,XC[170]R[172][191](2[172]I[172]A[170]AN),YC[170]R[172][191](I[172]A[170]AN)
260 [130] I,AN
270 [161] A$:[139] A$[179][177]"C" [167] 270
300 [158](CL)
310 D[178]4:E[178]2:X[178]XC:Y[178]YC
320 [158]MV,X,Y
330 [129] I[178]0 [164] 20
340 D[178]D[170]E:Y[178]Y[170]D:[158]DR,X,Y
350 D[178]D[170]E:X[178]X[170]D:[158]DR,X,Y
360 D[178]D[170]E:Y[178]Y[171]D:[158]DR,X,Y
370 D[178]D[170]E:X[178]X[171]D:[158]DR,X,Y
380 [130] I
390 [161] A$:[139] A$[179][177]"C" [167] 390
400 [158]CL:S[178][255][173]3
410 [129] T[178]0 [164] S [169] S[173]8
420 [158]MV,XC[170]R[172][190](T),YC[170]R[172][191](T)
430 [129] I[178]S [164] 2[172][255] [169] S
440 [158]DR,XC[170]R[172][190](I[170]T),YC[170]R[172][191](I[170]T)
450 [130] I,T
460 [161] A$:[139] A$[179][177]"C" [167] 460
500 [158]CL:S[178][255][173]4:D[178]R[173]20
510 [129] T[178]0 [164] S [169] S[173]20
520 [158]MV,XC[170]R[172][190](T),YC[170]R[172][191](T)
530 [129] I[178]S [164] 2[172][255] [169] S
540 [158]DR,XC[170]R[172][190](I[170]T),YC[170]R[172][191](I[170]T)
550 [130] I
560 R[178]R[171]D:[130] T
580 [161] A$:[139] A$[179][177]"C" [167] 580
600 [158]CL:R[178]80:S[178][255][173]8:D[178]R[173]20
610 [129] T[178]0 [164] S [169] S[173]40
620 [158]PX,XC[170]R[172][190](T),YC[170]R[172][191](T)
630 [129] I[178]S [164] 2[172][255] [169] S
640 [158]PX,XC[170]R[172][190](I[170]T),YC[170]R[172][191](I[170]T)
650 [130] I
660 R[178]R[171]D:[130] T
680 [161] A$:[139] A$[179][177]"C" [167] 680
700 [158]CL:R[178]80:S[178]2[172][255][173]5:A[178][255][173]10
710 [129] I[178]0 [164] 4
720 T[178]A[170]I[172]S
730 X(I)[178]XC[170]R[172][190](T):Y(I)[178]YC[170]R[172][191](T)
740 [130] I
750 [158]MV,X(0),Y(0)
760 [158]DR,X(2),Y(2):[158]DR,X(4),Y(4)
770 [158]DR,X(1),Y(1):[158]DR,X(3),Y(3)
780 [158]DR,X(0),Y(0)
790 [161] A$:[139] A$[179][177]"C" [167] 760
800 [158]CL:A[178]160:B[178]A[173]2:[158]MV,0,A[172][189]([171]4)
810 [129] X[178]4 [164] 2[172]A[171]1 [169] 4
820 [158]DR,X,A[172][189]([171]((X[171]A)[173]B)[174]2)
830 [130] X
880 [161] A$:[139] A$[179][177]"C" [167] 880
9999 [158](RS)